home *** CD-ROM | disk | FTP | other *** search
/ Magnum One / Magnum One (Mid-American Digital) (Disc Manufacturing).iso / d10 / geograph.arc / USALIST.BAS (.txt) < prev    next >
Encoding:
GW-BASIC  |  1988-10-06  |  4.5 KB  |  89 lines
  1. 1  '    Programmed by Dick Conklin
  2. 2  '          ESB Planning
  3. 3  '
  4. 4  '
  5. 10  CLS:SCREEN 1:COLOR 0,1:KEY OFF:OPTION BASE 1:DEFINT X-Z
  6. 20  DRAW "c1bm275,165m273,160m270,149m265,145m260,140m262,130m271,120m275,115m277,114m280,110m290,103m288,100m285,95m281,85m283,87m283,92m286,82m283,75m288,80m290,69m300,63m291,68m307,58m310,57"' EAST COAST -- FLORIDA TO CAPE COD
  7. 30  DRAW "m310,55m309,56m310,56m303,55m304,44m318,33m305,20m300,20m293,38m280,40m268,52m258,55m258,61m240,69m240,55m225,40m200,30m180,30m170,29m169,24m167,24m167,27"'    Cape Cod to Minnesota
  8. 40  DRAW "m140,27m120,26m100,23m80,21m60,19m40,15m25,10m21,13m16,11m15,28m20,29m15,30m5,47m1,63m4,81m9,80m9,83m8,82m11,106m22,111m28,116m29,122m43,124m65,135"'       Minnesota to New Mexico
  9. 50  DRAW "m82,138m82,135m97,135m105,145m109,150m118,155m122,150m133,155m140,165m144,172m155,175m154,165m160,160m180,151m200,153m210,152m209,149m202,149m230,143m235,149m241,145m253,150m260,163m270,173m275,172m275,165"'    Back to Delray Beach
  10. 60  PAINT (270,172),3,1
  11. 70  DRAW "c0bm296,35m304,50m290,53m285,39m295,36m293,53bm290,53m291,66bm290,59m301,57m304,60bm299,57m300,63"'New England
  12. 80  DRAW "bm255,61m256,65m280,61m290,66m290,70bm283,64m282,69m285,71m283,75m252,80m250,65bm260,79m261,82m269,80m281,87bm252,73m251,80m243,90m250,97m255,95m270,82m283,90bm281,76m284,84m287,83"'  NY,PA,WV,MD,DE
  13. 90  DRAW "bm243,90m230,87m220,95m210,100m204,106m211,105m212,104m240,102m287,96bm204,106m200,116m244,113m249,111m257,110m260,112m267,111m275,115bm238,114m250,100bm240,102m246,96m243,90"'KY,VA,TN,NC
  14. 100  DRAW "bm200,116m197,126m198,134m192,142m206,142m207,148m209,148bm215,147m215,115bm229,114m238,142m260,140bm221,145m220,141m236,140bm242,112m262,130"'MS,AL,GA,SC,FL
  15. 110  DRAW "bm180,152m180,140m178,138m178,128m176,128m174,90m160,62m161,62m157,27bm200,30m180,47m190,62m192,68m210,67m215,49m187,40bm210,67m240,68bm210,67m216,83m212,100bm228,69m230,88"'LA,AR,MO,IA,MN,WI,MI,IL,IN,OH
  16. 120  DRAW "bm178,130m197,130bm175,109m200,108m199,110m203,110bm205,103m190,82m192,68bm190,62m161,62bm190,82m188,81m169,82"'     MO,IA,MN
  17. 130  DRAW "bm176,128m160,126m140,120m140,109m121,108m119,136m97,135bm175,105m121,104m121,108bm170,85m129,85m128,105bm163,69m150,67m119,65m118,78m130,79m129,85"'TX,OK,KS,NE
  18. 140  DRAW "bm160,48m120,46m119,65bm120,46m121,25bm60,18m60,29m66,35m70,50m81,50m82,47m120,52bm81,50m78,73m118,78bm89,75m80,138BM121,104M55,96"'SD,ND,MT,WY,CO,NM
  19. 150  DRAW "m53,102m48,112m43,125bm55,96m61,65m79,67bm61,65m3,53bm45,62m56,16bm52,37m22,32m15,27bm29,59m22,78m49,110"'WA,OR,CA
  20. 160  CLR=1:CLRR=2
  21. 200  DIM STATE$(50),CAPITAL$(50),XYLIST(50,2)
  22. 210  FOR Z=1 TO 50
  23. 220  READ STATE$(Z),CAPITAL$(Z),XYLIST(Z,1),XYLIST(Z,2)
  24. 230  NEXT Z
  25. 300  PAL1=1
  26. 302  FOR CLR=1 TO 3
  27. 304  FOR ST=1 TO 50
  28. 315  'PAINT (XB,YB),3,0
  29. 320  XB=XYLIST(ST,1):YB=XYLIST(ST,2)
  30. 335  PAINT (XB,YB),CLR,0
  31. 340  NEXT ST
  32. 342  NEXT CLR
  33. 345  SWAP PAL0,PAL1:COLOR ,PAL1
  34. 350  GOTO 302
  35. 4000  'Lookup the state'
  36. 4010  S$=STATE$(ST):C$=CAPITAL$(ST):XB=XYLIST(ST,1):YB=XYLIST(ST,2)
  37. 4020  RETURN
  38. 5000  'Data on each of the 50 states'
  39. 5010  DATA ALABAMA,MONTGOMERY,225,130
  40. 5020  DATA ALASKA, JUNEAU,40,155
  41. 5030  DATA ARIZONA,PHOENIX,65,115
  42. 5040  DATA ARKANSAS,LITTLE ROCK,185,120
  43. 5050  DATA caliFORNIA,SACRAMENTO,20,90
  44. 5060  DATA COLORADO,DENVER,105,90
  45. 5070  DATA CONNECTICUT,HARTFORD,295,60
  46. 5080  DATA DELAWARE,DOVER,283,80
  47. 5090  DATA FLORIDA,TALLAHASSEE,260,150
  48. 5100  DATA GEORGIA,ATLANTA,245,130
  49. 5110  DATA HAWAII,HONOLULU,100,180
  50. 5120  DATA IDAHO,BOISE,62,55
  51. 5130  DATA ILLINOIS,SPRINGFIELD,205,85
  52. 5140  DATA INDIANA,INDIANAPOLIS,220,85
  53. 5150  DATA IOWA,DES MOINES,175,72
  54. 5160  DATA KANSAS,TOPEKA,150,95
  55. 5170  DATA KENTUCKY,FRANKFORT,230,97
  56. 5180  DATA LOUISIANA,BATON ROUGE,185,145
  57. 5190  DATA MAINE,AUGUSTA,305,35
  58. 5200  DATA MARYLAND,ANNAPOLIS,278,80
  59. 5210  DATA MASSACHUSETTS,BOSTON,300,55
  60. 5220  DATA MICHIGAN,LANSING,225,55
  61. 5230  DATA MINNESOTA,ST. PAUL,170,45
  62. 5240  DATA Mississippi,Jackson,205,130
  63. 5250  DATA MISSOURI,JEFFERSON CITY,185,95
  64. 5260  DATA MONTANA,HELENA,95,35
  65. 5270  DATA NEBRASKA,LINCOLN,145,75
  66. 5280  DATA NEVADA,CARSON CITY,40,80
  67. 5290  DATA NEW HAMPSHIRE,CONCORD,298,48
  68. 5300  DATA NEW JERSEY,TRENTON,288,70
  69. 5310  DATA NEW MEXICO,SANTA FE,100,120
  70. 5320  DATA NEW YORK,ALBANY,280,55
  71. 5330  DATA NORTH CAROLINA,RALEIGH,270,105
  72. 5340  DATA NORTH DAKOTA,BISMARCK,140,40
  73. 5350  DATA OHIO,COLUMBUS,240,80
  74. 5360  DATA OKLAHOMA,OKLAHOMA CITY,160,115
  75. 5370  DATA OREGON,SALEM,25,45
  76. 5380  DATA PENNSYLVANIA,HARRISBURG,270,70
  77. 5390  DATA RHODE ISLAND,PROVIDENCE,301,59
  78. 5400  DATA SOUTH CAROLINA,columbia,260,115
  79. 5410  DATA SOUTH DAKOTA,PIERRE,140,58
  80. 5420  DATA TENNESSEE,NASHVILLE,222,110
  81. 5430  DATA TEXAS,AUSTIN,145,140
  82. 5440  DATA UTAH,SALT LAKE CITY,70,85
  83. 5450  DATA VERMONT,MONTPELIER,290,45
  84. 5460  DATA VIRGINIA,RICHMOND,270,90
  85. 5470  DATA WASHINGTON,OLYMPIA,35,25
  86. 5480  DATA WEST VIRGINIA,CHARLESTON,255,85
  87. 5490  DATA WISCONSIN,MADISON,195,55
  88. 5500  DATA WYOMING,CHEYENNE,100,65
  89.